home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 75 / Tiger_Disk_075_20xx_Tiger-Crew-Disk_de_Side_B.d64 / - ende - 111 (.txt) next >
Commodore BASIC  |  2023-02-26  |  795b  |  19 lines
  1. 10 poke53280,.:poke53281,0:printchr$(147):forc=2to12:poke646,c:
  2. 20 print"[145][145]                                        ";:
  3. 21 print"[206][163][163][163][163][163][163][163][163][163][223][169][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206][223][169][163][163][163][163][163][163][163][163][163][205]";
  4. 22 print"[183][183][183][183][183][183][183][183][183][183][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][183][183][183][183][183][183][183][183][183][183]";:
  5. 23 print"[169][175][175][175][175][175][175][175][175][175][186]                  [204][175][175][175][175][175][175][175][175][175][223]"; :nextc:
  6. 30 f=f+4:poke53281,f/2:print"[145][145]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] ":iff=200thenf=0
  7. 35 gosub200:goto40
  8. 40 forp=1024to2023step17*(rnd(f)+4)-1:pp=3047-p:ifl=0thenl=99:f=f-2:
  9. 45 l=l+1:poke53281,int(rnd(0)+l)-1
  10. 50 ford=0to41step5:ff=36-d+5:ifl>152then100
  11. 60 pokep+54272+ d,f:pokepp+54272+ff,f+8
  12. 61 e=1+1:poke53281,.:::::::::::::::::::::::::::::::::::poke53281,peek(53281)+e
  13. 62 ife=14then70:f=f+e
  14. 70 next:next:gosub200::goto30
  15. 100 forc=2to22:poke646,c:print"[147]                  ende                  ";:next
  16. 101 end
  17. 200 s=54272:fort=0to3step.6:pokes+24,15:pokes+4,129:pokes+1,t+abs(21-42)
  18. 201 pokes+6,248:pokes+4,128:fori=33to0step-1:pokes+4,i:next:next  : return
  19.